perm filename CHART.UNF[TIM,LSP]2 blob
sn#738498 filedate 1984-01-17 generic text, type T, neo UTF8
'(THIS IS THE UNFASL FOR ((DSK (TIM LSP)) CHART LSP))
'(ASSEMBLED BY FASLAP /392)
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117)
;COMPILED ON JANUARY 17, 1984, AT 3:18 PM
;Loading DEFSTRUCT 280
(COMMENT **FASL** 0. (LAP |STRING-LENGTH MACRO| SUBR))
(COMMENT **FASL** 25. (LAP LOOKUP SUBR))
(COMMENT **FASL** 34. (LAP GET-BENCH-INFO SUBR))
(COMMENT **FASL** 38. (LAP |RPUSH MACRO| SUBR))
(COMMENT **FASL** 76. (LAP PRINC-N SUBR))
(COMMENT **FASL** 103. (LAP ID SUBR))
'BOX
'LINE
(COMMENT **FASL** 105. (LAP FORMAT-BOX SUBR))
'ROW
'CHART
(COMMENT **FASL** 168. (LAP MAKE-A-CHART SUBR))
(COMMENT **FASL** 217. (LAP MAKE-TOP-ROW SUBR))
(COMMENT **FASL** 220. (LAP MAKE-DASHED-ROW SUBR))
(COMMENT **FASL** 246. (LAP MAKE-A-ROW SUBR))
(COMMENT **FASL** 712. (LAP ASSIGN-WIDTHS SUBR))
(COMMENT **FASL** 803. (LAP FORMAT-ALL-BOXES SUBR))
(COMMENT **FASL** 815. (LAP FIND-TOTAL-WIDTH SUBR))
(COMMENT **FASL** 833. (LAP PRINT-CHART SUBR))
(COMMENT **FASL** 847. (LAP PRINT-ROW SUBR))
(COMMENT **FASL** 868. (LAP PRINT-BOXES SUBR))
(COMMENT **FASL** 892. (LAP PRINT-LINE-N SUBR))
(COMMENT **FASL** 911. (LAP PRINT-LINE SUBR))
(COMMENT **FASL** 928. (LAP DO-CHART SUBR))
(COMMENT **FASL** TOTAL = 932. WORDS)